home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / misc / identify / identify_dev / arexx / versioncheck.ify < prev   
Text File  |  1999-05-14  |  1KB  |  37 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  versioncheck.ify    rexxidentify.library demonstration      **
  4. **                                                              **
  5. ******************************************************************
  6. **
  7. **      (c) 1997 by Richard Körber -- All Rights Reserved
  8. **
  9. **      You may use this example freely for your own programs.
  10. **
  11. */
  12.  
  13.   /* Add the library functions */
  14. CALL AddLib("/libs/rexxidentify.library",0,-30,0)
  15.  
  16.   /* You should use the release part of ID_Release() to   */
  17.   /* check if a special function or parameter you need is */
  18.   /* really available. One easy example:                  */
  19. IF Word(ID_Release(),1)<1 THEN DO
  20.   SAY "This script requires at least rexxidentify.library release 1!"
  21.   EXIT
  22. END
  23.  
  24.  
  25. relstring = ID_Release()
  26. PARSE VAR relstring rel ver '.' rev '(' date ')'
  27.  
  28. SAY "This is rexxidentify.library release" rel
  29. SAY "The library's version is" ver ||", revision" rev
  30. SAY "Compilation date:" date
  31.  
  32. SAY ""
  33.  
  34. EXIT
  35.  
  36.  
  37.